﻿Imports Biz
Imports DAL



Public Class GestorDigitoVerificador

    Private Shared _instance As GestorDigitoVerificador
    Private Shared m_semaforo As New Object

    Private _DALDigitoVerificador As DALDigitoVerificador



    Public Function EsValido() As Boolean
        Return _DALDigitoVerificador.EsValido()
    End Function

    ''' <summary>
    ''' Método estático Instance para exponer una única instancia de la clase GestorDigitoVerificador
    ''' </summary>
    ''' <returns>Unica instancia de la clase GestorDigitoVerificador</returns>
    ''' <remarks></remarks>
    Public Shared Function Instance() As GestorDigitoVerificador
        If _instance Is Nothing Then
            SyncLock (m_semaforo)
                If _instance Is Nothing Then
                    _instance = New GestorDigitoVerificador
                End If
            End SyncLock
        End If

        Return _instance
    End Function

    Private Sub New()
        _DALDigitoVerificador = DALDigitoVerificador.Instance
    End Sub

End Class
